copy xpburnobj.dll to your system
from the command prompt, type regsvr32 xpburnobj.dll; or, right-click the DLL and choose REGISTER.

boot vb. 

create a new application.

put a button on the form

put this code in

	Private Sub Command1_Click()
	Dim foo As Object
	Set foo = CreateObject("BaydenBurn.XPBurn")
	MsgBox ("Is XP Burning ready: " & foo.Equipped)
	MsgBox ("Burn staging area: " & foo.BurnArea)
	MsgBox ("Add file1: " & foo.addfile("fdsafdsa"))
	MsgBox ("Add file2: " & foo.addfile("C:\try.txt"))
	foo.startburn
	End Sub

Please let me know if this worked out for you... i stayed up a few extra hours to do this... :-)